$file = "/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/parse_cdf/output_plus2_hguA1.txt";
open(BUFF,$file);
while($line = <BUFF>)
{
	chomp($line);
	@array = split(/\t/,$line);
	$hash{"$array[5]"."_"."$array[6]"} = "k";
}
open(BUFF,"/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/parse_cdf/output_plus2_hguB1.txt");
while($line = <BUFF>)
{
        chomp($line);
        @array = split(/\t/,$line);
        $hash1{"$array[5]"."_"."$array[6]"} = "k";
}
$file = "../input1/raw_GSM49939.CEL";
open(BUFF,$file);
open(WRBUFF,">rawvalues_plus2");
open(WRBUFF1,">rawvalues_plus2_A");
open(WRBUFF2,">rawvalues_plus2_B");
while($line = <BUFF>)
{
	chomp($line);
	$line =~ s/\s+/ /g;
	#$line =~ s/\t/\s/g;
	@array = split(" ",$line);
	#print $line."\n";
	#print $array[0]." ".$array[1]." ".$array[2]."\n";
	print WRBUFF $array[2]."\n";
	if(exists($hash{"$array[0]"."_"."$array[1]"}))
	{	
		print WRBUFF1 $array[2]."\n";
	}
	if(exists($hash1{"$array[0]"."_"."$array[1]"}))
	{
		print WRBUFF2 $array[2]."\n";
	}
}
